home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / vs_804 / maintsrc.exe / D_NTX.PRG < prev    next >
Text File  |  1991-10-14  |  717b  |  34 lines
  1. * Filename......: D_Ntx.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Mon  10-14-1991  10:39:04
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9. *
  10. * Dialect.......: Clipper v5.0x
  11.  
  12. #include "INKEY.CH"
  13. #include "SETCURS.CH"
  14.  
  15. FUNCTION D_Ntx
  16. *****
  17. * Delete currently highlighted record
  18. *****
  19. LOCAL n_Button
  20.  
  21.    n_Button = VS_Alert( { PADC("Delete Current Index?",40), ;
  22.                  PADC("Are You Sure?",40) }, { " No ", " Yes " }, 3 )
  23.  
  24.    IF n_Button = 1
  25.       RETURN(NIL)
  26.    ENDIF
  27.  
  28.    _DICTNTX->( VS_DelRec() )
  29.  
  30. RETURN(NIL)
  31. *** EOF: D_Ntx() ************************************************************
  32.  
  33.  
  34.